home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1984 Half 1 / rerun-1984-01-06-side-a.d64 / caves may p90 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  35 lines
  1. 10 print"[147]":poke36879,104:poke52,28:poke56,28:clr
  2. 20 fori=7424to7679:pokei,peek(i+25600):next
  3. 25 fori=7179to7408:readj:pokei,j:nexti
  4. 30 fori=7432to7551:readj:pokei,j:nexti
  5. 40 fori=7632to7679:readj:pokei,j:nexti
  6. 50 fori=7416to7423:readj:pokei,j:nexti
  7. 1000 data8,72,138,72,152,72,162,1,160,0,189,0,30,201,39,208,46,138
  8. 1010 data72,56,233,23,170,189,0,30,201,32,240,13,169,58,157,0,30
  9. 1020 data169,2,157,0,150,76,64,28,169,39,157,0,30,169,10,157,0,150,104
  10. 1030 data170,169,32,157,0,30,76,150,28,201,35,208,22,32,132,3,165,98
  11. 1040 data201,157,176,63,169,39,157,0,30,169,10,157,0,150,76,150,28,201,40
  12. 1050 data208,8,169,32,157,0,30,76,150,28,201,37,208,25,189,0,150,41,15,201,10
  13. 1060 data208,8,169,9,157,0,150,76,150,28,169,10,157,0,150,76,150,28,201,58,208,5
  14. 1070 data169,32,157,0,30,189,0,30,72,189,0,150,41,15,202,157,0,150
  15. 1080 data104,157,0,30,232,232,200,192,21,208,61,232,224,242,144,59
  16. 1090 data162,0,189,0,30,201,36,208,35,32,132,3,165,98,201,160
  17. 1100 data176,26,138,24,105,22,168,185,0,30,201,41,240,14,169,40
  18. 1110 data153,0,30,169,2,153,0,160,152,76,198,28,232,224,220,144,209
  19. 1120 data104,168,104,170,104,40,96,76,21,28,76,19,28
  20. 2000 data255,255,255,255,255,255,255,255,60,66,153,153,66,60,90,153
  21. 2010 data8,8,28,28,28,28,62,62,255,165,90,36,24,24,24,24
  22. 2020 data255,235,235,235,235,235,235,255,0,64,64,96,124,254,127,0
  23. 2030 data12,12,12,12,63,8,8,8,24,24,24,24,24,24,24,24
  24. 2040 data24,24,24,24,36,90,165,255,255,254,252,252,240,240,192,128
  25. 2050 data255,127,31,63,63,15,7,1,1,3,15,31,31,63,127,255
  26. 2060 data128,224,224,248,248,252,248,255,66,66,66,36,36,24,24,0
  27. 2070 data0,0,0,48,191,48,0,0,73,107,186,28,255,28,171,105
  28. 2080 data60,66,64,60,2,66,60,0,28,34,64,64,64,34,28,0
  29. 2090 data24,36,66,66,66,36,24,0,124,66,66,124,72,68,66,00
  30. 2100 data126,64,64,120,64,64,126,0
  31. 3000 data64,64,64,64,64,64,126,0
  32. 5000 print"[144]   now loading main       program"
  33. 5010 print" load";chr$(34);"caves module";chr$(34);",8[145][145]";
  34. 5020 poke631,13:poke632,82:poke633,213:poke634,13:poke198,4
  35.